home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / DeveloperStax.cpt / Developer Stack 1.2r / card_35063.txt < prev    next >
Text File  |  1989-02-26  |  2KB  |  73 lines
  1. -- card: 35063 from stack: in.2r
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2612
  5. -- name: MungeMCTB
  6.  
  7.  
  8. -- part 2 (button)
  9. -- low flags: 00
  10. -- high flags: A004
  11. -- rect: left=386 top=269 right=293 bottom=471
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: try me
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   if the optionkey is down then edit script of me
  23.   ask "Please enter the red component (0-65535)" with "65535"
  24.   put it into red
  25.   if red is empty then exit mouseup
  26.  
  27.   ask "Please enter the green component (0-65535)" with "65535"
  28.   put it into green
  29.   if green is empty then exit mouseup
  30.  
  31.   ask "Please enter the blue component (0-65535)" with "0"
  32.   put it into blue
  33.   if blue is empty then exit mouseup
  34.  
  35.   MungeMCTB Red,Green,Blue
  36.  
  37.   if the result is not empty then put the result
  38. end mouseUp
  39.  
  40.  
  41.  
  42. -- part contents for background part 2
  43. ----- text -----
  44. MungeMCTB
  45.  
  46. -- part contents for background part 3
  47. ----- text -----
  48. MungeMCTB (meaning: Munge Menu Color Table) is an XCMD that changes the color of the background of both the Menu Bar and the pull-down menus to a specified color.
  49.  
  50.  
  51.  
  52. NOTE: Make sure that you run this on a Mac II (color helps).
  53.  
  54. Enjoy.......Chris Knepper ==> CIS: 76347,1757
  55. ¬© Apple Computer, Inc.
  56.  
  57.  
  58.  
  59. -- part contents for background part 10
  60. ----- text -----
  61. Syntax:
  62.  
  63. MungeMCTB <Red>,<Green>,<Blue>
  64.  
  65. Pass 3 parameters to MungeMCTB (one each for the red, green, and blue components of the color you want the menu to be.)
  66.  
  67. ex:  MungeMCTB 65535,65535,0
  68.  
  69. returns any error in 'the result'.
  70.  
  71. -- part contents for background part 13
  72. ----- text -----
  73. 30